home *** CD-ROM | disk | FTP | other *** search
- !
- ! Cat script
- !
- ! Karen Scites 1994
- !------------------------------------------------------------------------!
- :@TALK ! Talk to the character !
- !------------------------------------------------------------------------!
-
- if player.hp = 0 then
- writeln( player.name, " is dead!" );
- STOP;
- endif;
-
- if npc.picture >= 0 then
- viewpcx(npc);
- endif;
-
- ! First, say hello.. !
- if NPC.V0 > 0 then
- writeln( "Meow Meow Meow." );
- else
- writeln( "Meow Meow Meow" );
- endif;
-
- ! Now, set some variables..
- NPC.V0 = 1; ! From know on, remember we've been here
-
- :LOOP
- L3 = getstr("Name","Job","Join","Bye");
- if L3 = -1 then
- writeln( "Meow." );
- goto XSTOP;
- endif;
-
- ! First, see if the keyword typed is in the character's text block !
- if dotext( S0 ) then
- if L3 = 3 goto XSTOP;
- goto LOOP;
- endif;
-
- ! It didn't, so try the predefined ones..
- on L3 goto CNAME, CJOB, CJOIN, CSTOP;
-
- ! Nope, try a 'DEFAULT' line
- if not dotext( "DEFAULT" ) then
- writeln( "Meow Meow Meow" );
- endif;
- goto LOOP;
-
- :CNAME
- writeln( "Meow Meow Meow." );
- GOTO LOOP;
-
- :CJOB
- writeln( "Meow Meow Meow." );
- GOTO LOOP;
-
- :CJOIN
- writeln( "Meow Meow Meow." );
- GOTO LOOP;
-
- :CSTOP
- writeln( "Meow Meow Meow." );
- goto XSTOP;
-
- ! Feel free to expand on this list.. !
-
- !-----------------------------------------------------------------!
- ! All STOPs now lead here so the screen can be restored if needed !
- !-----------------------------------------------------------------!
- :XSTOP
- if npc.picture >= 0 then
- paint(window); ! Assumes the picture fits in the window !
- endif;
- STOP;
-